
. DOG RACES

   1 .
   2 . DOG RACES
   3 . BY ROB ROSENHOUSE
   4 . FOR SUPER SOFTWARE
   5 .
   6 . (C) 1980
   7 .
   9 :RETURN ;BC=159;FC=0;GOSUB 30000;CLEAR ;O=12;GOTO 20000
  10 W=0;Z=1;CLEAR ;FOR A=43TO -43STEP -17;BOX 0,A,160,1,1;NEXT A;BOX 77,0,7,86,2;BOX 73,0,1,85,1
  50 FOR A=1TO 5;@(A)=-65;GOSUB 32000;P=P-1;CY=P;CX=-75;PRINT #1,A;GOSUB 500;NEXT A
 100 A=RND (5);GOSUB 32000;P=P-1;IF @(A)=65GOTO 100
 110 BOX @(A)+2,P,12,15,2
 111 @(A)=@(A)+O;IF @(A)>=65@(A)=65
 120 Z=1;GOSUB 500;IF @(A)=65GOTO 150
 130 NT=4;FOR A=1TO 8;MU="$";NEXT A;NT=0;GOTO 100
 150 BOX @(A),P+1,15,16,3;W=W+1;CY=P;CX=-20;IF W=1PRINT "WIN!!!";S=A
 180 IF W=2PRINT "PLACE!!";T=A
 190 IF W=3PRINT "SHOW!";U=A;FOR A=1TO 1000;NEXT A;GOTO 300
 210 GOTO 100
 300 CLEAR ;FOR A=1TO K;GOSUB 400;IF @(A+13)=SIF @(A+17)=1GOTO 450
 305 IF @(A+13)=TIF @(A+17)=2GOTO 450
 306 IF @(A+13)=UIF @(A+17)=3GOTO 450
 307 GOTO 460
 400 PRINT "PLAYER <",#1,A,">",;RETURN 
 450 PRINT " WINS",;@(A+5)=@(A+5)+@(A+9);GOTO 470
 460 PRINT " LOST",;@(A+5)=@(A+5)-@(A+9)
 470 PRINT " $",#3,@(A+9)," ON ",#1,@(A+13);NEXT A;FOR A=1TO 1500;NEXT A;CLEAR ;GOTO 20070
 500 BOX @(A),P-2,7,9,Z;BOX @(A),P-4,5,4,2;BOX @(A)+3,P+4,1,3,Z;BOX @(A)+4,P+5,3,3,Z
 510 BOX @(A)-4,P+2,1,1,Z;BOX @(A)+3,P+7,1,1,Z;RETURN 
20000 NT=10;&(10)=158;CY=-40;PRINT "5865106535200",;NT=0;CLEAR ;&(10)=180
20050 CY=32;PRINT " DOG RACES";PRINT " --- -----
20060 CY=0;PRINT " # OF PLAYERS";K=KP-48;IF (K<1)+(K>4)GOTO 20060
20070 CLEAR ;FOR A=1TO K;IF @(A+5)<=0NEXT A;GOTO 32500
20100 FOR A=1TO K;CY=8;PRINT "PLAYER <",#1,A,">'S MONEY: ",#3,@(A+5);IF @(A+5)<=0FOR E=1TO 500;NEXT E;NEXT A;GOTO 10
20120 B=0;CY=-8;PRINT "BET:
20130 B=B+JY(A)×10;IF B<0B=0
20140 IF B>@(A+5)B=@(A+5)
20150 CY=-8;CX=0;PRINT #3,B
20160 IF TR(A)GOTO 20174
20170 GOTO 20130
20174 IF TR(A)GOTO 20174
20175 D=1;CY=-16;PRINT "TO :
20180 D=D+JX(A);IF D<1D=1
20182 IF D>3D=3
20184 CX=-30;CY=-16;IF D=1PRINT "WIN 
20186 IF D=2PRINT "PLACE
20188 IF D=3PRINT "SHOW
20190 IF TR(A)GOTO 20198
20195 GOTO 20180
20198 @(A+17)=D
20199 IF TR(1)GOTO 20199
20200 @(A+9)=B;CY=-24;C=0;PRINT "ON #: ",
20220 C=C+JY(A);IF C<1C=1
20230 IF C>5C=5
20240 CY=-24;CX=0;PRINT #1,C
20250 IF TR(A)GOTO 20300
20260 GOTO 20220
20300 @(A+13)=C;NEXT A;GOTO 10
30000 FOR A=1TO 4;@(A+5)=500;NEXT A;RETURN 
32000 GOTO 32000+A×10
32010 P=35;RETURN 
32020 P=18;RETURN 
32030 P=1;RETURN 
32040 P=-16;RETURN 
32050 P=-33;RETURN 
32500 X=8;FOR A=-28TO -20;CX=A;CY=X;X=X-1;PRINT "GAME OVER";NEXT A
32510 BC=RND (256);FC=BC+12+8×RND (32)
32520 FOR A=1TO 50;IF &(23)RUN 
32530 NEXT A;GOTO 32510

:RETURN 
>